home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 17 / AMIGAplus Sonderheft 17 (1999)(ICP)(DE)[!].iso / Rexx / KW-Compress.ecfg < prev    next >
Text File  |  1997-05-15  |  1KB  |  43 lines
  1. /*****************************************************************
  2. **                                                              **
  3. **      KW-Compress.ecfg                EuraConfig-Script       **
  4. **      Komprimiert die Kurzwahlliste                           **
  5. **                                                              **
  6. ******************************************************************
  7. **
  8. **      V1.0 -- (C) 1997 Richard Körber -- All Rights Reserved
  9. **
  10. **/
  11.  
  12. OPTIONS RESULTS
  13. OPTIONS FAILAT 6
  14. IF Left(Address(),10)~='EURACONFIG' THEN ADDRESS 'EURACONFIG.1'
  15.  
  16. /*---- SCRIPT STARTS HERE --------------------------------------*/
  17.  
  18. entries = 0
  19.  
  20. DO i=100 TO 299                 /* Alle Plätze durchgehen */
  21.   'KWNUMBER '||i
  22.   IF result~="" THEN DO         /* Rufnummer gefunden? */
  23.     number.entries = result     /* diese merken */
  24.     'KWNAME '||i
  25.     name.entries   = result     /* und den Namen dazu */
  26.     entries = entries + 1       /* ein Eintrag mehr! */
  27.   END
  28. END
  29.  
  30. 'KWCLEAR ALL QUICK'             /* Ganze Liste löschen */
  31.  
  32. DO i=0 TO entries-1             /* Zurückschreiben */
  33.   'KWNUMBER '||i+100||' "'||number.i||'" QUICK'
  34.   'KWNAME '||i+100||' "'||name.i||'" QUICK'
  35. END
  36.  
  37. 'REFRESH ALL'                   /* WICHTIG! */
  38.  
  39. /*---- SCRIPT ENDS HERE ----------------------------------------*/
  40.  
  41. EXIT
  42.  
  43.